home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_027_19xx_-_de_Side_A.d64
/
zuerst laden!!!
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
105 lines
1 rem ---------------------------------
2 rem freeware 01.09.1995 by alex zop
3 rem ---------------------------------
10 print chr$(142):
15 print"[155][147]";:poke808,237:poke53280,0:poke53281,0 : rem ^ disable 'stop'
30 print"[158]========================================"
31 print"[145][158]brotkasten rockford-freeware diskette!!"
32 print"[145][158]========================================"
40 print"[158]----------------------------------------"
45 print"[145][155]um die programme dieser rockford-fd disk"
46 print"[145]problemlos anzuwenden, kannst du nun die"
47 print"[145]inhaltsbeschreibung mit allen wichtigen"
48 print"informationen, kurzanleitungen, und den"
49 print"copyright-hinweisen am bildschirm lesen"
50 print"oder auch ausdrucken lassen. viel spass!"
55 print"[145][158]----------------------------------------"
60 print"[158]----------------------------------------"
61 print"[145][155]natuerlich kannst du auch alle weiteren"
62 print"texte dieser rockford-fd diskette lesen!"
63 print"[145][158]----------------------------------------"
64 print" welche texte willst du lesen?"
65 print" <[155]i[158]>nhalt <[155]a[158]>leitungen <[155]s[158]>onstiges [145][145][145]"
66 getz$:ifz$=""then66
67 ifz$="a"goto1000
68 ifz$="i"goto71
69 ifz$="s"goto119
70 ifz$<>""then66
71 print" <[155]k[158]>urz- o. <[155]u[158]>mfassender inhaltstext?"
72 get o$:if o$=""then72
73 if o$="k"then b$="kurzi*":goto80
74 if o$="u"then b$="inhalt*":goto80
75 if o$<>""then72
80 print"[145][145][145][158] wohin soll ich den text schreiben? "
85 print" [155]<[158]m[155]>onitor [151]<[158]d[151]>rucker <e>nde "
90 getg$:ifg$=""then90
95 ifg$="e"then470
100 ifg$="m"goto240
105 ifg$="d"then230
110 ifg$<>""then90
119 print"[155][147]";:poke808,237:poke53280,0:poke53281,0 : rem ^ disable 'stop'
120 print"[147][158]========================================"
121 print"[145][158]brotkasten rockford-freeware diskette!!"
122 print"[145][158]========================================"
123 print"[151][158]----------------------------------------"
130 print"[145][151]folgende weitere texte solltest du noch "
135 print"[145] lesen oder ausdrucken: "
140 print""spc(10)"[155]<[158]f[155]>ragebogen "
141 print""spc(10)"[155]<[158]p[155]>rogrammierer infos"
142 rem und so weiter...
150 print"[158]----------------------------------------"
151 print"[158]----------------------------------------"
152 print"[145][158]waehle den jeweiligen anfangsbuchstaben!"
153 print"[145][158]----------------------------------------"
160 getu$:ifu$=""then160
161 ifu$="f"then b$="frag*":goto80
162 ifu$="p"then b$="prgi*":goto80
163 rem und so weiter siehe 140-149
180 ifu$<>""then160
181 goto 80
230 open1,4,7:q=1
240 open5,8,5,b$+",s,r":gosub420
245 print"[147][144]poke53280,0:poke53281,0
250 [153]"systantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
260 [153]"onstr$ruecke (NULL)(NULL)atnlenval o. (NULL)val(NULL)(NULL)(NULL)(NULL) um den (NULL)extfluss"
270 [153]"onanzuhalten. str$ruecke nochmals um weiter- "
280 [153]"onzulesen! (NULL)it >(NULL)< beendest str$u das (NULL)(NULL)chr$! "
290 [153]"ontantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanlist"
300 [161]#5,f$
310 [139]st[178]0[167]330
320 [139]st[178]64[167]440
330 [139]q[179][177]1[167][153]f$;:[137]350
340 [152]1,f$;
350 [161]a$
360 [139]a$[179][177]""[167][141]380
370 [137]300
380 [139]a$[178]"q"[167]440
390 [161]a$:[139]a$[178]""[167]390
400 [139]a$[178]"q"[167]440
410 [142]
420 [160]15:[159]15,8,15:[132]15,d,e$,f,g
430 [142]
440 q[178]0:[160]1:[160]5:[137] 470
470 [151]808,237:[153]"on":[137]490
490 [151]631,13:[151]632,13:[151]198,2:[128]
900 [161]g$:[139]g$[178]""[167]90
1000 [153]"listload";:[151]808,237:[151]53280,0:[151]53281,0 : [143] ^ disable 'stop'
1001 [153]"loadsys========================================"
1002 [153]"onsysbrotkasten rockford-freeware diskette!!"
1003 [153]"onsys========================================"
1004 [153]"pokesys----------------------------------------"
1005 [153]"onpokefuer welches prg willst du die anleitung?"
1006 [153]"on lesen oder ausdrucken: "
1007 [153]""[166]10)"list<sys1list> giga-adress"
1008 [153]""[166]10)"list<sys2list> triangle 64"
1009 [153]""[166]10)"list<sys3list> hexer v1.0"
1050 [153]"sys----------------------------------------"
1052 [153]"onsyswaehle den jeweiligen anfangsbuchstaben!"
1053 [153]"onsys----------------------------------------"
1060 [161]w$:[139]w$[178]""[167]1060
1061 [139]w$[178]"1"[167] b$[178]"dok1*":[137]80
1062 [139]w$[178]"2"[167] b$[178]"dok2*":[137]80
1063 [139]w$[178]"3"[167] b$[178]"dok3*":[137]80
1070 [139]w$[179][177]""[167]1060
1071 [137]80